home *** CD-ROM | disk | FTP | other *** search
/ Educational Software Cooperative 4 / Educational Software Cooperative 4.iso / midilang / scale.mpl < prev    next >
Encoding:
Text File  |  1996-02-06  |  822 b   |  55 lines
  1. -19642
  2. #
  3. #
  4. #
  5. #    scale.mpl
  6. #
  7. #    Harmony Scale based on your melody
  8. #
  9. #          Author          ID                   Date
  10. #       ------------   -----------          ---------
  11. #     Serge Sibony   100417,2633          09/06/95
  12. #      
  13. #
  14. # This file is a mpl effect definition used by MidiLang
  15. #    MidiLang can be found at the MidiForum, in the
  16. #         Windows sound media library.
  17. # 
  18. # 
  19. #
  20. # This effect will play the scale of your melody
  21. #
  22. #
  23. #
  24.  
  25. label delharm
  26. oldharm 1
  27. end
  28.  
  29.  
  30. label main
  31. v== 10 0
  32.     initharm 1
  33. calcharm 1
  34. v= 10 2
  35.  
  36. Label loop
  37. time+= 240
  38. getharm 1 10 3
  39. v+= 3 48
  40. note=v 3
  41. outmidi
  42.  
  43. v== 10 8
  44. goto end
  45.  
  46. v+= 10 1
  47. goto loop
  48.  
  49. label end
  50. end
  51.  
  52. keydef c c# delharm init_harmony
  53.  
  54. Descript This effect plays the current scale
  55. Descript based on the harmony of your melody